source PAC.tcl

# TemplateA --
#
#   value abstraction

inherit TemplateA Abstraction
method TemplateA constructor {control value} {
   this inherited $control 
   set this(value) $value
}
?
method TemplateA destructor {} {
   this inherited
}



# TemplateP --
#
#   a value presentation

inherit TemplateP Presentation
method TemplateP constructor {control} {
	this inherited $control
}


method TemplateP destructor {} {
   this inherited
}


# Template --
#
#   a value controler

inherit Template Control
method Template constructor {parent value} {
   TemplateA ${objName}_abst $objName $value
   TemplateP ${objName}_pres $objName
   this inherited $parent ${objName}_abst ${objName}_pres
}

method Template destructor {} {
   this inherited
}

